/* GUI CONVERTED from rspove.p (converter v1.76) Fri Aug 17 05:10:34 2001 */
/* rspove.p - Supplier Performance Late ASN Check Program                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.19.1.3 $                                                      */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION 8.6E         CREATED: 08/17/98     BY: *L060* Steve Nugent        */
/* REVISION 8.6E   LAST MODIFIED: 09/15/98     BY: *K1WX* Steve Nugent        */
/* REVISION: 9.1   LAST MODIFIED: 03/24/00     BY: *N08T* Annasaheb Rahane    */
/* REVISION: 9.1   LAST MODIFIED: 08/12/00     BY: *N0KP* Mark Brown          */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.19.1.3 $   BY: Jean Miller     DATE: 06/22/01  ECO: *M11Z*    */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */

/* ********** Begin Translatable Strings Definitions ********** */

{mfdeclre.i} /*GUI moved to top.*/
&SCOPED-DEFINE rspove_p_1 " Supplier Performance Info "
/* Maxlen:35 Comment: */

&SCOPED-DEFINE rspove_p_2 " Receipt Date "
/* Maxlen:35 Comment: */

/* ********** Begin Translatable Strings Definitions ********** */

/*GUI moved mfdeclre/mfdtitle.*/
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

define input   parameter abs_recid           as recid no-undo.
define input   parameter auto_receipt        like mfc_logical no-undo.

define shared  variable receipt_date        like vep_rcp_date no-undo.

/* FORM FOR OVERLAP FRAME RECEIPT */
FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
space(1)
   receipt_date label {&rspove_p_2}
 SKIP(.4)  /*GUI*/
with frame receipt overlay side-labels attr-space centered row 11
width 32  NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-receipt-title AS CHARACTER.
 F-receipt-title = (getFrameTitle("SUPPLIER_PERFORMANCE_INFO",36)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame receipt = F-receipt-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame receipt =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame receipt + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame receipt =
  FRAME receipt:HEIGHT-PIXELS - RECT-FRAME:Y in frame receipt - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME receipt = FRAME receipt:WIDTH-CHARS - .5. /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame receipt:handle).

{porcdef.i}

for first abs_mstr where recid(abs_mstr) = abs_recid: end.

receipt_date = eff_date.

pause 0.

if not auto_receipt then do:

   display
      receipt_date
   with frame receipt.

   setloop:
   do on endkey undo, leave:
      set
         receipt_date
      with frame receipt.

   end. /* setloop */

   hide frame receipt.

end. /* IF NOT auto_receipt */
